The relationship between the type of beer i drink, my feelings and my hangover

Januari 13, 2021

Why am i (pseudo)researching this?

There are a few reasons

I like drinking beer
I was in the mood to draw some random values from a normal distribution
I read that consumption of low-alcohol and non-alcoholic beers can avoid possible health threatening issues related to excessive alcohol intake.(Sohrabvandi, Mortazavian, & Rezaei, 2012)

Some plots to illustrate possible relationships

First:g the relationship between my feelings and hangovers

Now my Hangover per type of beer

We check these findings through using a regression analysis

A linear regression analysis

	hangover
Predictors	Estimates	CI	p
(Intercept)	4.32	-7.78 – 16.42	0.457
feelings	0.18	-1.51 – 1.87	0.822
type [Pilsener]	-0.49	-4.11 – 3.13	0.775
type [Quad]	2.01	-4.76 – 8.79	0.534
type [Triple]	-1.55	-5.37 – 2.27	0.398
type [White]	-0.45	-5.59 – 4.68	0.853
Observations	20
R² / R² adjusted	0.102 / -0.219

Note. “Blond” beer is used as reference here

These are the resulting equations for each of the different types of beer

\[ \begin{aligned} Hangover_i &= 4.32 + Feelings_i*0.18 (Blond) \\ Hangover_i &= 4.32 + Feelings_i*0.18 - 0.49(Pilsener)\\ Hangover_i &= 4.32 + Feelings_i*0.18 + 2.01(Quad)\\ Hangover_i &= 4.32 + Feelings_i*0.18 -1.55(Triple)\\ Hangover_i &= 4.32 + Feelings_i*0.18-0.45(White) \end{aligned} \]

Next we show the data on which the plot and analyses are based

The dataframe, as presented through a datatable

The data was created through the following r-code

# data creation
set.seed(100)
type<-sample(c("White","Blond","Triple",
               "Pilsener","Quad"),20,replace=TRUE)
feelings<-rnorm(20,7,1)
bottle<-sample(c("regular","large","small"),20,replace=TRUE)
hangover<-rnorm(20,5,2)
data<-data.frame(type,feelings,bottle,hangover)

Now for a two-collumn page, to flex our programming skills

Some conclusions

Beer is nice
My feelings and the type of beer i drink are not related to my hangovers
This study might show some methodological shortcomings
I hope you can enjoy a nice (cold) beer after reading this

That’s all folks

References

Sohrabvandi, S., Mortazavian, A., & Rezaei, K. (2012). Health-related aspects of beer: A review. International Journal of Food Properties, 15(2), 350–373.